home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / feb93.zip / ENT_INP.LSP < prev    next >
Text File  |  1993-02-12  |  1KB  |  52 lines
  1. ; ENT_SRC.LSP
  2. ;
  3. ;    THIS ROUTINE RETRIEVES THE SELECTED ENTITIES EXTENDED DATA
  4. ;    REGISTERED UNDER THE APPLICATION NAME OF
  5. ;
  6. ;            KENT_44240_GIS_INPUT
  7. ;
  8. ;    THE INFORMATION RECORDED UNDER THIS APPLICATION IS INTENDED TO
  9. ;    PROVIDE TRACKING OF THE ENTITIES' SOURCE DRAWING FOR GIS INPUT.
  10. ;    
  11. ;    THE INFORMATION IS RETURNED FOR USE IN GEL/SQL TAGGING OPERATIONS.
  12. ;
  13. (defun c:Ent_INP ( )
  14.     (setq appname "KENT_44240_GIS_INPUT")
  15. ;
  16. ;    INCLUDE NEXT LINE TO SELECT ENTITY OUTSIDE OF GEO/SQL ROUTINES
  17.     (setq tagent (entsel))
  18. ;
  19.     (setq dinp nil)
  20.     (setq Ent_cur (entget (CAR tagent) (list "*")))
  21.  
  22.     (if (setq ent_dsc (assoc -3 ent_cur))
  23.       (progn
  24.         (if (setq ent_dat (assoc appname (cdr ent_dsc)))
  25.           (progn
  26.             (if (setq xd_data (assoc 1000 (cdr ent_dat)))
  27.           (progn
  28.                 (SETQ DINP (CDR XD_DATA))
  29.           )
  30.           (PROGN
  31.                 (setq DINP "NONE")
  32.           )
  33.         )
  34.           )
  35.         )
  36.       )
  37.       (PROGN
  38. ;        (princ "\nNo xd_data\n")
  39.         (setq DINP "NONE")
  40.       )
  41.     )
  42.     (if DINP (setq x DINP) (setq x "N/A"))
  43. ;
  44. ;    INCLUDE THESE LINES TO DISPLAY RESULTS OUTSIDE OF GEO/SQL ROUTINES
  45.  
  46. ;    (PRINC DINP)
  47. ;    (PRINC "\n")
  48. ;    (PRINC x)
  49. ;    (PRINC "\n")
  50. )
  51. 
  52.